#! /usr/bin/env perl -w
# author: maxiao
# date: 2023-03-07 9:26
# descritption: 测试undef值及defined()函数

# 用于调试脚本（显示详细的报错信息）
# use  diagnostics;
# 读取数据
$name = <STDIN>;
$name = undef;
if (defined($name)) {
    print "你输入的数据是：$name";
} else {
    print "你没有输入有效的数据\n";
}

